@echo off

if not exist bin md bin

rem compilamos el subprograma para acceder al archivo de clientes
if exist bin\ClientesLib.dll del bin\ClientesLib.dll
copy ..\..\ClientesLib.cbl /y >nul
copy ..\..\Clientes-FD.cbl /y >nul
copy ..\..\Clientes-REG.cbl /y >nul
C:\OpenCOBOL\bin\cobc.exe -m ClientesLib.cbl -o bin\ClientesLib.dll
if not exist bin\ClientesLib.dll goto :end

rem compilamos el programa principal
if exist bin\TP.exe del bin\TP.exe
copy ..\..\Principal.cbl /y >nul
copy ..\..\Asignaciones-FD.cbl /y >nul
copy ..\..\Asignaciones-REG.cbl /y >nul
C:\OpenCOBOL\bin\cobc.exe -x Principal.cbl -o bin\TP.exe
if not exist bin\TP.exe goto :end

rem para crear el archivo de clientes vacio
if exist bin\IndexarArchivoClientes.exe del bin\IndexarArchivoClientes.exe
copy ..\..\IndexarArchivoClientes.cbl /y >nul
C:\OpenCOBOL\bin\cobc.exe -x IndexarArchivoClientes.cbl -o bin\IndexarArchivoClientes.exe
if not exist bin\IndexarArchivoClientes.exe goto :end

rem copiamos los archivos de trabajo
copy ASIGNACIONES.DAT bin\ /y >nul
copy CLIENTES.SEQ bin\ /y >nul

cd bin\

cls
rem corremos las herramintas que preparan los archivos
IndexarArchivoClientes.exe
CrearArchivoAsignaciones.exe

rem borramos el reporte
if exist REPORTE.RPT del REPORTE.RPT /q >nul

cls
rem ejecutamos el proceso
TP.exe

rem mostramos el reporte
if exist REPORTE.RPT type REPORTE.RPT

:end

echo.
pause